home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tl.d64 / example4 (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  176b  |  12 lines
  1. 10 G:CLEAR; FULL; PEN BLACK
  2. 20 FOR X=-79 TO 80
  3. 30 C:NL=NL+1
  4. 40 C(NL>9):PN=PN+1
  5. 50 G(NL>9):PEN PN
  6. 60 C(NL>9):NL=0
  7. 70 G:LINE X,100 TO X,-99
  8. 80 NEXT
  9. 90 A:
  10. 100 G:QUIT
  11. 110 H:
  12.